home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 January / Macworld (1998-01).dmg / QuarkXPress Passport / QXP Passport™ Pre-release PPC / QuarkXPress Passport™ 4.0 Demo / QuarkXPress Passport™ 4.0 Demo.rsrc / STR#_805.txt < prev    next >
Encoding:
Text File  |  1997-08-25  |  910 b   |  45 lines
  1. /MN{1 index length /Len exch def dup length Len add string dup
  2.  
  3. Len 4 -1 roll putinterval dup 0 4 -1 roll putinterval}B
  4.  
  5. /FF{dup 256 string cvs (|______) exch MN cvn dup FontDirectory
  6.  
  7. exch known {exch}if pop findfont}B
  8.  
  9. /Symbol FF def
  10.  
  11. ***
  12.  
  13. /Helvetica findfont dup maxlength 1 add dict begin
  14.  
  15. {1 index/FID ne 2 index/UniqueID ne and{def}{pop pop}ifelse}forall
  16.  
  17. /PaintType 2 def
  18.  
  19. /StrokeWidth 8 def currentdict end
  20.  
  21. /demohel exch definefont[120 0 0 -120 0 0]makefont setfont
  22.  
  23. 1 dict begin
  24.  
  25. string/qxpstr exch def 8[3 index 0 0 5 index neg 0 7 index]
  26.  
  27. {currentfile qxpstr readstring pop}
  28.  
  29. {currentfile qxpstr readhexstring pop}
  30.  
  31. {currentfile qxpstr readhexstring pop dup 0 exch{255 exch sub 3 copy put pop 1 add}forall pop}
  32.  
  33. systemdict/image get
  34.  
  35. /image load
  36.  
  37. exec
  38.  
  39. gsave 1 setgray newpath 0 0 moveto 0 1 rlineto 1 0 rlineto 0 -1 rlineto closepath eofill grestore
  40.  
  41. /startnup where{begin startnup end}if
  42.  
  43. epnul
  44.  
  45.